#!/usr/bin/perl -wc

package RFCMail::ESMTP::Object::ForwardPath;

use strict;
use base qw(RFCMail::ESMTP::Object::MaybePath);
use Exporter qw(import);
use RFCMail::ESMTP::Object::MaybePath qw(MaybePath);

our @EXPORT_OK = qw(ForwardPath);


sub ForwardPath {
    my $self = &MaybePath;
    return (bless $self, 'RFCMail::ESMTP::Object::ForwardPath');
}


sub forward_path {
    my ($self) = @_;
    return ($self->path)
	if $self->is_path;
    return ("<postmaster>");
}


sub is_postmaster {
    my ($self) = @_;
    return (not $self->is_path);
}


1;
